home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / examples / collect.st < prev    next >
Encoding:
Text File  |  1998-09-30  |  970 b   |  42 lines
  1. Class Main
  2. | i |
  3. [
  4.    main
  5.       self test1.
  6.       self test2.
  7.       self test3
  8. |
  9.    test1      | j |
  10.       (i <- 'example') print.
  11.       i size print.
  12.       i asArray print.
  13.       (i occurrencesOf: $e) print.
  14.       i asBag print.
  15.       (j <- i asSet) print.
  16.       j asString reversed print.
  17.       i asDictionary print.
  18.       (j <- i asList) print.
  19.       j addFirst: 2 / 3.
  20.       j addAllLast: (12.5 to: 15 by: 0.75).
  21.       j print.
  22.       j removeLast print.
  23.       (j , #($a 7) ) print.
  24.       (i reject: [:x | x isVowel] ) print.
  25.       (i copyWithout: $e) print.
  26.       i sort print.
  27.       (i sort: [:x :y | y < x]) print.
  28.       i keys print.
  29.       i values print.
  30.       (i atAll: (1 to: 7 by: 2) put: $x) print
  31. |
  32.    test2         | j |
  33.       i <- (1 to: 6) asBag print.
  34.       i size print.
  35.       (i select: [:x | (x \\ 2) strictlyPositive] ) print.
  36.       (j <- (i collect: [:x | x \\ 3]) asSet ) print.
  37.       j size print
  38. |
  39.    test3
  40.       ('bead' at: 1 put: $r) print
  41. ]
  42.